Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/mac/media/dirs/BackUp/Test.dir/00004_Script_Button Behavior

Text File | 2002-10-15 | 3KB | 90 lines

--This behavior flashes a member at a desired rate and also allows it to work as a link to another frame.
--PROPERTIES--
--Hot: The member switched to (hot state).
--FlashSpeed: The speed in which the sprite flashes measured in ticks (1/60th of a sec.)
--WhichFrame: The frame junped to if pushed. Zero keeps the current frame.
--Glowing: Lets the function know if the sprite is hot or cold.
--RollOvr: The member switched to when rolled-over.
--ButtonSound: The sound that will play when clicked. Channel 2 is reserved for short sounds.
--TimeTracker: Times out the seconds between flashes.
--SpNum: The sprite number of the sprite.
--MyNum: The Member's number

global Neptune
property Hot, FlashSpeed, WhichFrame, Glowing, RollOvr, ButtonSound, MovieControl, TimeTracker, SpNum, MyNum

--Captures the spritenumber.
on new me
  SpNum = me.spritenum
  MyNum=sprite(SpNum).member.number
end

--Creates the dialog box for the behavior.
on getpropertydescriptionlist me
  set pList = [#Hot:[#comment: "What is the cast member name for the Hot state?", #format: #string, #default: ""], \
 #RollOvr: [#comment: "Which member would you like to use for the rollover?", #format: #string, #default: ""], \
 #ButtonSound:[#comment: "What sound would you like to play when the button is pressed?",#format:#string,#default:"Click"],\
 #MovieControl: [#comment: "Is this button used to control a movie?",#format: #string,#range: ["Play", "Pause","Stop","Rewind","Fast Forward", "No"],#default:"No"], \
 #FlashSpeed:[#comment:  "How often would you like the member to flash (ticks)?", #format: #integer, #range: [#min: 0, #max: 60], #default: 30], \
 #WhichFrame: [#comment: "Which frame would you like to jump to?", #format:#integer, default: "0"]]
  return plist
end

--This toggles the flashing object back  and forth at the desired speed while the mouse is not over it.
--on prepareframe me
--  if FlashSpeed <> 0 then
--    if sprite(SpNum).cursor <> 280 then
--      set TimeTracker = the ticks
--      repeat while the ticks < TimeTracker + FlashSpeed
--      end repeat
--      if Glowing = 0 then
--        sprite(SpNum).membernum = member(Hot).number
--        Glowing = Glowing + 1
--      else
--        sprite(SpNum).membernum = member(MyNum).number
--        Glowing = GLowing - 1
--      end if
--      updateStage
--    end if
--  end if
--end

--This is for the rollover.
on mouseenter me
  sprite(SpNum).membernum = member(RollOvr).number
  sprite(SpNum).cursor = 280
  updateStage
end
on mouseleave me
  sprite(SpNum).membernum = member(MyNum).number
  sprite(SpNum).cursor = 293
  Glowing = 0
  updateStage
end

--This goes to another frame and tells the movie what to do. Also plays the sound, if any.
on mousedown me
  if WhichFrame <> 0 then
--    if the frame = 2 or the frame = 3 then
--      Hermes = VOID
--      Hermes = new (script "AnswerGod")
--    end if
    go to frame WhichFrame
  else if MovieControl <> "No" then
    sendallsprites (#MovieActionDown, MovieControl)
  end if
  if  ButtonSound <> "" then
    sound(2).play(member(ButtonSound))
  end if
  updatestage
end

--This tells a movie what to do
on mouseup me
if MovieControl <> "No" then
sendallsprites (#MovieActionUp, MovieControl)
end if
updatestage
end